inherited frmPeriodClose: TfrmPeriodClose
  Left = 412
  Top = 232
  VertScrollBar.Range = 0
  AutoSize = True
  BorderStyle = bsDialog
  Caption = #1047#1072#1082#1088#1099#1090#1080#1077' '#1087#1077#1088#1080#1086#1076#1072
  ClientHeight = 211
  ClientWidth = 504
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 184
    Width = 504
    inherited BitBtn1: TBitBtn
      Left = 297
    end
    inherited BitBtn2: TBitBtn
      Left = 399
    end
  end
  inherited ToolBar1: TToolBar
    Top = 39
    Width = 504
    Height = 0
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 39
    Width = 504
    Height = 145
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 504
      Height = 145
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      object GroupBox2: TGroupBox
        Left = 0
        Top = 0
        Width = 504
        Height = 47
        Align = alTop
        BiDiMode = bdLeftToRight
        Caption = ' '#1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1079#1072#1082#1088#1099#1090#1099#1081' '#1087#1077#1088#1080#1086#1076' '
        ParentBiDiMode = False
        TabOrder = 0
        object cbbMonth: TDBComboBoxEh
          Left = 146
          Top = 19
          Width = 113
          Height = 19
          AlwaysShowBorder = True
          EditButtons = <>
          Flat = True
          Items.Strings = (
            #1103#1085#1074#1072#1088#1100
            #1092#1077#1074#1088#1072#1083#1100
            #1084#1072#1088#1090
            #1072#1087#1088#1077#1083#1100
            #1084#1072#1081
            #1080#1102#1085#1100
            #1080#1102#1083#1100
            #1072#1074#1075#1091#1089#1090
            #1089#1077#1085#1090#1103#1073#1088#1100
            #1086#1082#1090#1103#1073#1088#1100
            #1085#1086#1103#1073#1088#1100
            #1076#1077#1082#1072#1073#1088#1100)
          KeyItems.Strings = (
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7'
            '8'
            '9'
            '10'
            '11'
            '12')
          TabOrder = 0
          Visible = True
          OnChange = cbbMonthChange
        end
        object eYear: TDBNumberEditEh
          Left = 268
          Top = 19
          Width = 75
          Height = 19
          AlwaysShowBorder = True
          EditButton.Style = ebsUpDownEh
          EditButton.Visible = True
          EditButtons = <>
          Flat = True
          TabOrder = 1
          Visible = True
          OnChange = cbbMonthChange
        end
      end
      object GroupBox3: TGroupBox
        Left = 0
        Top = 47
        Width = 504
        Height = 98
        Align = alClient
        Caption = ' '#1055#1072#1088#1072#1084#1077#1090#1088#1099' '
        TabOrder = 1
        object Label1: TLabel
          Left = 124
          Top = 71
          Width = 259
          Height = 13
          Alignment = taCenter
          AutoSize = False
          Caption = #1046#1076#1080#1090#1077', '#1080#1076#1077#1090' '#1079#1072#1082#1088#1099#1090#1080#1077' '#1087#1077#1088#1080#1086#1076#1072'....'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          Visible = False
        end
        object cbFillOborot: TDBCheckBoxEh
          Left = 22
          Top = 18
          Width = 279
          Height = 17
          AlwaysShowBorder = True
          Caption = #1047#1072#1087#1086#1083#1085#1103#1090#1100' '#1090#1072#1073#1083#1080#1094#1091' '#1086#1073#1086#1088#1086#1090#1086#1074
          Flat = True
          TabOrder = 0
          ValueChecked = 'True'
          ValueUnchecked = 'False'
        end
        object cbFillLgot: TDBCheckBoxEh
          Left = 22
          Top = 46
          Width = 279
          Height = 17
          AlwaysShowBorder = True
          Caption = #1047#1072#1087#1086#1083#1085#1103#1090#1100' '#1090#1072#1073#1083#1080#1094#1091' '#1083#1100#1075#1086#1090
          Flat = True
          TabOrder = 1
          ValueChecked = 'True'
          ValueUnchecked = 'False'
        end
      end
    end
  end
  object GroupBox1: TGroupBox [3]
    Left = 0
    Top = 0
    Width = 504
    Height = 39
    Align = alTop
    BiDiMode = bdLeftToRight
    Caption = ' '#1058#1077#1082#1091#1097#1080#1081' '#1079#1072#1082#1088#1099#1090#1099#1081' '#1087#1077#1088#1080#1086#1076' '
    ParentBiDiMode = False
    TabOrder = 3
    object DBText1: TDBText
      Left = 34
      Top = 14
      Width = 435
      Height = 17
      Alignment = taCenter
      DataField = 'CLOSEDATE'
      DataSource = dscPerClose
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  inherited ActionList1: TActionList
    Left = 252
    Top = 22
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Left = 374
    Top = 22
  end
  object dsPerClose: TpFIBDataSet
    SelectSQL.Strings = (
      'select first(1) *'
      'from t_periodclose'
      'order by closedate desc')
    Transaction = trClose
    Database = MAINDM.pMainDatabase
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 282
    Top = 22
    object dsPerCloseCLOSEDATE: TFIBDateField
      FieldName = 'CLOSEDATE'
    end
  end
  object dscPerClose: TDataSource
    DataSet = dsPerClose
    Left = 314
    Top = 22
  end
  object trClose: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    CSMonitorSupport.Enabled = csmeDatabaseDriven
    Left = 406
    Top = 24
  end
  object procPeriodClose: TpFIBStoredProc
    Transaction = trClose
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      
        'EXECUTE PROCEDURE PROC_PERIOD_CLOSE (?PMONTH, ?PYEAR, ?PFILL_REP' +
        '_OBOROT, ?PFILL_REP_LGOT, ?PPARAMS)')
    CSMonitorSupport.Enabled = csmeTransactionDriven
    StoredProcName = 'PROC_PERIOD_CLOSE'
    Left = 344
    Top = 22
  end
end
